XPgetDir()
   GetDir returns the current DOS directory
------------------------------------------------------------------------------

   Function:   XPgetDir()

               XPgetDir() returns the current directory for a
               specified drive. A similar function exists in
               Clipper itself, this one uses another parameter function,
               more compatible with the XPdiskTotal(), XPgetDisk()
               etc.. functions of the Expand Library. Extend's
               CurDir() accepts a character as an argument,
               XPgetDir() uses a numerical value.

   Syntax:     XPgetDir([<nDisk>]) --> cCurDir

   Arguments:  <nDisk> indicates the drive, 0 or None means
               current, 1 is A: etc..

   Returns:    A character string indicating the current
               directory, there's no leading \ nor is there a
               drive letter, so empty string means Root is
               current.

   Usage:      if XPgetDir() <> ''
                  XPchDir('..')
                  * Change to parent directory..
               end